home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
jpl.arc
/
LINE.JPL
< prev
next >
Wrap
Text File
|
1990-07-05
|
343b
|
22 lines
{ JPL Executor LINE pixel }
{ Copyright (C) 1988,89 Logiciels JPsoft Enr. }
{ _I is the loop variable }
MoveWindow ( 100 , 100 , 300 , 300 )
For ( 1 , 300 )
MoveTo ( _I , _I )
SetPixel ( 1 )
MoveTo ( _I , 200 )
SetPixel ( 2 )
MoveTo ( 200 , _I )
SetPixel ( 3 )
Next ()
End ()